home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Trading on the Edge
/
Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin
/
pc
/
mac_file
/
vendor_d
/
neuralwa
/
nw2v50
/
bam.nnc
< prev
next >
Wrap
Text File
|
1993-08-23
|
3KB
|
62 lines
csv3.0 ! Control Strategy Version
!************************************************************************
!* *
!* BAM Network Control Strategy *
!* *
!* This control strategy assumes the following layers, *
!* geometrically positioned from bottom to top of the screen: *
!* *
!* layer 0: Input Buffer *
!* layer 1: BAM 1 Layer ( same size as input buffer ) *
!* layer 2: BAM 2 Layer ( same size as output buffer ) *
!* layer 3: Output Buffer *
!* *
!* Optionally there can be one or more preprocessing layers *
!* between layer 0 and layer 1 *
!************************************************************************
!
LisaRisa trace aux3 ! 0 set trace option
L_saRi_a cset recall,1 ! 1 recall counter
L_saRi_a lset in,0 ! 2 input layer
L___Ri_a io read ! 3 Read input for recall
L_saR___ io lrnin ! 4 Read learn input
@LAB_000
L_saR___ math fire|sum|lnoise|tran|output ! 5 Do learn pre-processing
L___Ri_a math fire|sum|rnoise|tran|output ! 6 Do recall pre-processing
L_saRi_a lset cur,1 ! 7 Next layer
L_saRi_a lcmp out,-2 ! 8 At BAM 1 layer?
L_saRi_a blt @LAB_000 ! 9 No
L___Ri_a math set|fire|tran|output ! 10 Initialize BAM 1 layer
L___Ri_a lset cur,1 ! 11 BAM 2 layer
L___Ri_a math set|fire|tran|output ! 12 Initialize BAM 2 layer
LisaRisa lset out,-2 ! 13 BAM 1 layer
@LAB_002
L___R_sa cadd recall,1 ! 14 Increment recall ctr
L___R_sa lset cur,1 ! 15 BAM 2 layer
L___R_sa math sum|rnoise|tran|output ! 16 Neurate
L___R_sa io wrstep ! 17 Write out interim results
L___R_sa fcmp lflag,36 ! 18 End of recall?
L___R_sa banz @LAB_001 ! 19 Yes, jump out
L___R_sa lset cur,-1 ! 20 BAM 1 layer
L___R_sa math sum|rnoise|tran|output ! 21 Neurate
L___R_sa io wrstep ! 22 Write out interim results
L___R_s_ eos ! 23 End of step
L___R_sa brct @LAB_002 ! 24 Go to next step
@LAB_001
! Learn
L_saR___ math set|fire|lnoise|tran|output|e=w ! 25 Init BAM 1 layer
L_saR___ lset cur,1 ! 26 BAM 2 layer
L_saR___ math set|fire|lnoise|tran|output|e=w ! 27 Initialize BAM 2 layer
L_saR___ lset cur,-1 ! 28 BAM 1 layer
L_saR___ math fire|learn ! 29 Learn on BAM 1 layer
L_saR___ lset cur,1 ! 30 BAM 2 layer
L_saR___ math fire|learn ! 31 Learn on BAM 2 layer
L_saR_sa lset out,0 ! 32 Output layer
L_saR_sa math fire|sum|tran|output ! 33 Generate final output
L___R_sa io write ! 34 Tell the outside world
L_saR___ io lrnrslt ! 35 And for learn
LisaRisa trace 0 ! 36 Turn off trace